home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / internet / sweeper / samples / olecon~1 / wizards / wizform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-04  |  7.4 KB  |  226 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMainWizard 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Create Control"
  5.    ClientHeight    =   4050
  6.    ClientLeft      =   2010
  7.    ClientTop       =   1875
  8.    ClientWidth     =   6810
  9.    Height          =   4470
  10.    Left            =   1950
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4050
  15.    ScaleWidth      =   6810
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1515
  18.    Width           =   6930
  19.    Begin VB.CheckBox chkSatellite 
  20.       Caption         =   "Use Satellite DLL &Localization"
  21.       Height          =   375
  22.       Left            =   1560
  23.       TabIndex        =   8
  24.       Top             =   2400
  25.       Visible         =   0   'False
  26.       Width           =   3015
  27.    End
  28.    Begin VB.ComboBox cboSubClass 
  29.       Height          =   315
  30.       ItemData        =   "WizForm.frx":0000
  31.       Left            =   1440
  32.       List            =   "WizForm.frx":0025
  33.       Style           =   2  'Dropdown List
  34.       TabIndex        =   7
  35.       Top             =   1920
  36.       Visible         =   0   'False
  37.       Width           =   5175
  38.    End
  39.    Begin VB.CheckBox chkSubClass 
  40.       Caption         =   "&Subclass a Windows Control"
  41.       Height          =   375
  42.       Left            =   1560
  43.       TabIndex        =   6
  44.       Top             =   2040
  45.       Visible         =   0   'False
  46.       Width           =   2895
  47.    End
  48.    Begin VB.CheckBox chkLoser 
  49.       Caption         =   "Use only sho&rt filenames"
  50.       Height          =   375
  51.       Left            =   1560
  52.       TabIndex        =   5
  53.       Top             =   2760
  54.       Visible         =   0   'False
  55.       Width           =   5055
  56.    End
  57.    Begin VB.TextBox txtUseful 
  58.       Height          =   375
  59.       Left            =   1440
  60.       TabIndex        =   4
  61.       Text            =   "Text1"
  62.       Top             =   1440
  63.       Visible         =   0   'False
  64.       Width           =   5175
  65.    End
  66.    Begin VB.CommandButton cmdNext 
  67.       Caption         =   "&Next >"
  68.       Default         =   -1  'True
  69.       Height          =   375
  70.       Left            =   4320
  71.       TabIndex        =   1
  72.       Top             =   3555
  73.       Width           =   1095
  74.    End
  75.    Begin VB.CommandButton btnFinishCancel 
  76.       Cancel          =   -1  'True
  77.       Caption         =   "Cancel"
  78.       Height          =   375
  79.       Left            =   5520
  80.       TabIndex        =   2
  81.       Top             =   3555
  82.       Width           =   1095
  83.    End
  84.    Begin VB.CommandButton cmdBack 
  85.       Caption         =   "< &Back"
  86.       Enabled         =   0   'False
  87.       Height          =   375
  88.       Left            =   3240
  89.       TabIndex        =   0
  90.       Top             =   3555
  91.       Width           =   1095
  92.    End
  93.    Begin VB.Label lblMessage 
  94.       Caption         =   "Welcome to the Control Creation Wizard. Please Click ""Next"" to begin."
  95.       Height          =   975
  96.       Left            =   1440
  97.       TabIndex        =   3
  98.       Top             =   240
  99.       Width           =   5175
  100.    End
  101.    Begin VB.Image Image1 
  102.       Height          =   2850
  103.       Left            =   120
  104.       Picture         =   "WizForm.frx":00B5
  105.       Top             =   240
  106.       Width           =   930
  107.    End
  108.    Begin VB.Line Line2 
  109.       BorderColor     =   &H00FFFFFF&
  110.       X1              =   120
  111.       X2              =   6600
  112.       Y1              =   3375
  113.       Y2              =   3375
  114.    End
  115.    Begin VB.Line Line1 
  116.       BorderColor     =   &H00808080&
  117.       X1              =   120
  118.       X2              =   6600
  119.       Y1              =   3360
  120.       Y2              =   3360
  121.    End
  122. Attribute VB_Name = "frmMainWizard"
  123. Attribute VB_Creatable = False
  124. Attribute VB_Exposed = False
  125. Private Sub btnFinishCancel_Click()
  126.     If iStage = STAGE_FINISHING Then
  127.         Unload Me
  128.     Else
  129.         TerminateApplication
  130.     End If
  131. End Sub
  132. Private Sub cbosubclass_Click()
  133.     g_szSubClassName = cbosubclass.List(cbosubclass.ListIndex)
  134. End Sub
  135. Private Sub chkloser_Click()
  136.     g_fLoser = chkloser.Value
  137. End Sub
  138. Private Sub chkSatellite_Click()
  139.     g_fSatellite = chkSatellite.Value
  140. End Sub
  141. Private Sub cmdBack_Click()
  142.     iStage = iStage - 1
  143.     If iStage = STAGE_SUBCLASS And chkSubClass.Value <> vbChecked Then iStage = iStage - 1
  144.     m_SwitchPage
  145. End Sub
  146. Private Sub cmdNext_Click()
  147.     If iStage = STAGE_CONTROLNAME And chkSubClass.Value <> vbChecked Then iStage = iStage + 1
  148.     iStage = iStage + 1
  149.     m_SwitchPage
  150. End Sub
  151. Private Sub Form_Load()
  152.     Top = (Screen.Height - Height) / 3
  153.     Left = (Screen.Width - Width) / 2
  154. End Sub
  155. Private Sub m_SwitchPage()
  156.     Select Case iStage
  157.         Case STAGE_WELCOME
  158.             lblmessage = "Welcome to the Control Creation Wizard. Please Click ""Next"" to begin."
  159.             chkSatellite.Visible = False
  160.             chkSubClass.Visible = False
  161.             cbosubclass.Visible = False
  162.             txtuseful.Visible = False
  163.             chkSubClass.Visible = False
  164.             chkloser.Visible = False
  165.             cmdBack.Enabled = False
  166.             cmdNext.Enabled = True
  167.             
  168.         Case STAGE_CONTROLNAME
  169.             lblmessage = "Please Enter a Name for your Control."
  170.             chkSatellite.Visible = True
  171.             txtuseful.Text = szControlName
  172.             chkSubClass.Visible = True
  173.             cbosubclass.Visible = False
  174.             chkloser.Visible = True
  175.             txtuseful.Visible = True
  176.             cmdBack.Enabled = True
  177.             cmdNext.Enabled = True
  178.             txtuseful.SetFocus
  179.         Case STAGE_SUBCLASS
  180.             lblmessage = "Please Choose a control class on which to base your control."
  181.             chkSatellite.Visible = False
  182.             chkSubClass.Visible = False
  183.             cbosubclass.Visible = True
  184.             cbosubclass.SetFocus
  185.             chkloser.Visible = False
  186.             txtuseful.Visible = False
  187.             cmdBack.Enabled = True
  188.             cmdNext.Enabled = True
  189.         Case STAGE_CONTROLDIR
  190.             lblmessage = "Please Enter the location you'd like the source files to go."
  191.             chkSatellite.Visible = False
  192.             chkSubClass.Visible = False
  193.             cbosubclass.Visible = False
  194.             txtuseful.Text = szFinalDir
  195.             txtuseful.Visible = True
  196.             cmdBack.Enabled = True
  197.             chkloser.Visible = False
  198.             cmdNext.Enabled = True
  199.             txtuseful.SetFocus
  200.         Case STAGE_FINISHING
  201.             lblmessage = "Thank you.  Please Choose Finish to Complete the Creation of your control."
  202.             chkSatellite.Visible = False
  203.             chkSubClass.Visible = False
  204.             cbosubclass.Visible = False
  205.             txtuseful.Visible = False
  206.             chkloser.Visible = False
  207.             cmdBack.Enabled = True
  208.             cmdNext.Enabled = False
  209.             btnFinishCancel.Caption = "&Finish"
  210.             btnFinishCancel.SetFocus
  211.             
  212.     End Select
  213.                 
  214.             
  215.             
  216. End Sub
  217. Private Sub txtuseful_Change()
  218.     Select Case iStage
  219.         Case STAGE_CONTROLNAME
  220.             szControlName = txtuseful.Text
  221.         Case STAGE_CONTROLDIR
  222.             szFinalDir = txtuseful.Text
  223.     End Select
  224.         
  225. End Sub
  226.